-- card: 3055 from stack: in.2
-- bmap block id: 3273
-- flags: 0000
-- background id: 2661
-- name: 


-- part 1 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=69 top=68 right=252 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 5 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=174 top=281 right=311 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FullMove
----- HyperTalk script -----
on mouseUp
  answer "Move a :" with "File" or "Folder"
  put it into What

  if What is "File"
  then put FilePath(empty,"File to move :") into Path
else put FolderPath("Dossier to move :") into Path

if Path is empty then exit mouseUp

put FolderPath("Destination folder :") into Dest
if Dest ≠ empty
then
FullMove Path,Dest
if the Result ≠ empty
then answer the Result
else answer What && "moved"
end if
end mouseUp



-- part contents for card part 1
----- text -----


                                              FullMove 1.2

                                          by Frédéric RINALDI


DESCRIPTION
------------
  FullMove allows to move a file or folder on a same volume.

SYNTAX
--------
            FullMove <prov path>,<dest path>[,"DontResolveAlias"]

PARAMETERS
------------
   <prov path> can be a single name or whole pathname. If just a single name is supplied, the file is assumed to be in the same folder than the current stack.

   <dest path> must not include the name of the item to move, but just its path.

   "dontResolveAlias" allows to deal with an alias file itself (System 7.0 only) rather than with the file pointed by it.

   Using "!", "?" or "=" as first parameter will return an online help (resp. copyright, syntax and output).


USING
-----
If an error occurs, FullMove can return :
     "Error : Not a file"
     "Error : Not a folder"
     "Error : Alias file not supported"
     "Error : Volume not found"
     "Error : Bad Name"
     "Error : File not found"
     "Error : Folder not found"
     "Error : File is busy"
     "Error : I/O Error"
     "Error : Folder is full"
     "Error : Volume is locked"
     "Error : No resource fork"
     "Error : Duplicate file/folder name"
     "Error : Moving whole volume not allowed"
     "Error : Not an AppleShare volume"
     "Error : AppleShare insufficient privileges"
     "Error : Missing or empty parameter(s)"
     "Error : Third param can only be "DontResolveAlias""
     "Error : Cannot move to different volume"
     "Error : Same prov and dest folder"


HISTORY
--------
1.2 :                                                                                          12/25/91
• Fixed alias file bug under System 7.0.1

1.1 :                                                                                          08/04/91
• Added support for System 7.0 alias files
• General enhancement of the code
• Added "DontResolveAlias" parameter
• Added "=" param for online help


  This stack uses FilePath & FolderPath XFCNs, © 1898, 1990 Apple Computer, Inc.
--------------------------------------------------------------------
This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack.
Any commercial use must be licensed and aknowledged by the author.

                                  © Frederic RINALDI 1990,1991

AppleLink: RINALDI1        CalvaCom : FR10        Compuserve : 71170,2111